home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / ciacht58.zip / CIA-CHAT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-25  |  11KB  |  612 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     Integer  INTEGER007
  28.     Integer  INTEGER008
  29.     Integer  INTEGER009
  30.     Integer  INTEGER010
  31.     Integer  INTEGER011
  32.     Integer  INTEGER012
  33.     Integer  INTEGER013
  34.     Integer  INTEGER014
  35.     Integer  INTEGER015
  36.     Integer  INTEGER016
  37.     Integer  INTEGER017
  38.     Integer  INTEGER018
  39.     Integer  INTEGER019
  40.     Integer  INTEGER020
  41.     Integer  INTEGER021
  42.     Integer  INTEGER022
  43.     Integer  TINTEGER023(40)
  44.     Integer  INTEGER024
  45.     Integer  INTEGER025
  46.     Integer  TINTEGER026(40)
  47.     Integer  INTEGER027
  48.     Integer  INTEGER028
  49.     Integer  INTEGER029
  50.     Integer  INTEGER030
  51.     String   STRING001
  52.     String   STRING002
  53.     String   TSTRING003(10)
  54.     String   STRING004
  55.     String   STRING005
  56.     String   STRING006
  57.     String   STRING007
  58.     String   STRING008
  59.     String   STRING009
  60.     String   STRING010
  61.     String   TSTRING011(40)
  62.     String   TSTRING012(40)
  63.     String   STRING013
  64.     String   STRING014
  65.     String   STRING015
  66.     String   STRING016
  67.     String   STRING017
  68.  
  69. ;------------------------------------------------------------------------------
  70.  
  71.     For INTEGER004 = 1 To 40
  72.         TSTRING011(INTEGER004) = ""
  73.         TSTRING012(INTEGER004) = ""
  74.         TINTEGER023(INTEGER004) = 0
  75.         TINTEGER026(INTEGER004) = 0
  76.     Next
  77.     STRING008 = TokenStr()
  78.     Tokenize STRING008
  79.     GetToken STRING009
  80.     If (STRING009 == "/C") Goto LABEL004
  81.     STRING007 = Chr(13)
  82.     STRING010 = Chr(8)
  83.     STRING006 = Chr(27)
  84.     FOpen 1, PPEPath() + "PAGE.CNF", 0, 0
  85.     FGet 1, INTEGER001
  86.     FGet 1, INTEGER002
  87.     FGet 1, STRING002
  88.     FGet 1, INTEGER003
  89.     FGet 1, INTEGER005
  90.     FClose 1
  91.     DispFile PPEPath() + "WHY.ANS", 0
  92.     AnsiPos INTEGER001, INTEGER002
  93.     InputStr "_", STRING001, STRING002, INTEGER003, " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz`1234567890-=\~!@#$%^&*()_+|[]{};':,./<>?", 0
  94.     If (STRING001 == "") Then
  95.         Cls
  96.         Print "@X07Sysop Page Aborted!"
  97.         End
  98.     Endif
  99.     Gosub LABEL014
  100.     STRING004 = ""
  101.     STRING005 = ""
  102.     INTEGER004 = 1
  103.     INTEGER006 = 150
  104.     INTEGER007 = 15
  105.     INTEGER005 = INTEGER005 * 155.7
  106.     INTEGER008 = 0
  107.     If (Exist(PPEPath() + "QUIET.DAT")) Then
  108.         BOOLEAN001 = 1
  109.     Else
  110.         BOOLEAN001 = 0
  111.     Endif
  112.     AnsiPos 1, 23
  113.     ClrEol
  114.     AnsiPos 33, 23
  115.     TSTRING003(1) = "@X08.PAGING SYSOP."
  116.     TSTRING003(2) = "@X07.@X08PAGING SYSOP@X07."
  117.     TSTRING003(3) = "@X0F.@X07P@X08AGING SYSO@X07P@X0F."
  118.     TSTRING003(4) = "@X07.@X0FP@X07A@X08GING SYS@X07O@X0FP@X07."
  119.     TSTRING003(5) = "@X08.@X07P@X0FA@X07G@X08ING SY@X07S@X0FO@X07P@X08."
  120.     TSTRING003(6) = "@X08.P@X07A@X0FG@X07I@X08NG S@X07Y@X0FS@X07O@X08P."
  121.     TSTRING003(7) = "@X08.PA@X07G@X0FI@X07N@X08G @X07S@X0FY@X07S@X08OP."
  122.     TSTRING003(8) = "@X08.PAG@X07I@X0FN@X07G @X0FS@X07Y@X08SOP."
  123.     TSTRING003(9) = "@X08.PAGI@X07N@X0FG @X07S@X08YSOP."
  124.     TSTRING003(10) = "@X08.PAGIN@X07G @X08SYSOP."
  125.     Print TSTRING003(INTEGER004)
  126.     BOOLEAN002 = 1
  127.     While (BOOLEAN002 && (INTEGER005 > 0)) Do
  128.         If (Upper(STRING005) == "Q") Then
  129.             If (BOOLEAN001) Goto LABEL001
  130.             Sound 0
  131.             BOOLEAN001 = 1
  132.             FOpen 1, PPEPath() + "QUIET.DAT", 1, 3
  133.             FPut 1, "THIS FILE IS USED BY CIA-CHAT AS A QUIET FLAG!  DON'T DELETE IT!"
  134.             FClose 1
  135.             Goto LABEL002
  136.             :LABEL001
  137.             BOOLEAN001 = 0
  138.             Delete PPEPath() + "QUIET.DAT"
  139.             :LABEL002
  140.         Else
  141.             Select Case (STRING005)
  142.                 Case STRING007, " "
  143.                     BOOLEAN002 = 0
  144.                     Newline
  145.                     Goto LABEL004
  146.                 Case STRING006
  147.                     BOOLEAN002 = 0
  148.                     Newline
  149.                     Print "@X07Sorry @X0F@USER@@X07, the Sysop is not available to chat!"
  150.                     Goto LABEL003
  151.                 Endif
  152.         End Select
  153.         If (STRING004 == STRING006) Then
  154.             BOOLEAN002 = 0
  155.             Newline
  156.             Print "@X07Page aborted by User!"
  157.             Goto LABEL003
  158.         Endif
  159.         Inc INTEGER008
  160.         If (INTEGER008 == 7) Then
  161.             INTEGER008 = 0
  162.             Inc INTEGER004
  163.             AnsiPos 33, 23
  164.             Print TSTRING003(INTEGER004)
  165.         Endif
  166.         If (INTEGER004 == 11) INTEGER004 = 1
  167.         If (!BOOLEAN001) Sound INTEGER006
  168.         INTEGER006 = INTEGER006 + INTEGER007
  169.         If (INTEGER006 > 1800) INTEGER007 = -15
  170.         If (INTEGER006 < 150) INTEGER007 = 15
  171.         STRING004 = MInkey()
  172.         STRING005 = KInkey()
  173.         Dec INTEGER005
  174.     EndWhile
  175.     Newline
  176.     PrintLn "@X07Sorry @X0F@USER@@X07, the Sysop is not available to chat!"
  177.     :LABEL003
  178.     Sound 0
  179.     End
  180.     :LABEL004
  181.     FOpen 1, PPEPath() + "CHAT.CNF", 0, 0
  182.     FGet 1, STRING014
  183.     FGet 1, STRING013
  184.     FGet 1, INTEGER011
  185.     FGet 1, INTEGER013
  186.     FGet 1, INTEGER012
  187.     FGet 1, INTEGER014
  188.     FGet 1, INTEGER015
  189.     FGet 1, INTEGER017
  190.     FGet 1, INTEGER016
  191.     FGet 1, INTEGER018
  192.     FGet 1, INTEGER019
  193.     FGet 1, INTEGER020
  194.     FGet 1, STRING016
  195.     FGet 1, STRING017
  196.     FClose 1
  197.     RdUNet PcbNode()
  198.     WrUNet PcbNode(), "C", UN_Name(), UN_City(), "", ""
  199.     DispFile PPEPath() + "CHAT.ANS", 0
  200.     INTEGER024 = INTEGER015
  201.     INTEGER025 = INTEGER017
  202.     INTEGER027 = INTEGER016 - INTEGER015
  203.     INTEGER028 = INTEGER018 - INTEGER017
  204.     INTEGER021 = INTEGER011
  205.     INTEGER022 = INTEGER013
  206.     INTEGER029 = INTEGER012 - INTEGER011
  207.     INTEGER030 = INTEGER014 - INTEGER013
  208.     INTEGER010 = 1
  209.     INTEGER009 = 1
  210.     TINTEGER026(INTEGER010) = 0
  211.     TINTEGER023(INTEGER009) = 0
  212.     INTEGER008 = Len(StripAtx(STRING016)) + Len(U_Name()) + Len(StripAtx(STRING017))
  213.     INTEGER008 = INTEGER008 / 2
  214.     INTEGER019 = INTEGER019 - INTEGER008
  215.     AnsiPos INTEGER019, INTEGER020
  216.     Print STRING016 + "@USER@" + STRING017
  217.     :LABEL005
  218.     STRING004 = MInkey()
  219.     STRING005 = KInkey()
  220.     If (STRING004 == "") Then
  221.         Goto LABEL006
  222.     Endif
  223.     Select Case (STRING004)
  224.         Case STRING006
  225.             Goto LABEL008
  226.         Case STRING010
  227.             If (INTEGER024 > INTEGER015) Then
  228.                 TSTRING011(INTEGER010) = Left(TSTRING011(INTEGER010), Len(TSTRING011(INTEGER010)) - 1)
  229.                 Dec TINTEGER026(INTEGER010)
  230.                 AnsiPos INTEGER024, INTEGER025
  231.                 Print STRING004 + " " + STRING004
  232.                 Dec INTEGER024
  233.             ElseIf (INTEGER010 > 1) Then
  234.                 Dec INTEGER010
  235.                 Dec INTEGER025
  236.                 INTEGER024 = INTEGER015 + Len(TSTRING011(INTEGER010))
  237.                 AnsiPos INTEGER024, INTEGER025
  238.             Endif
  239.         Case Chr(18)
  240.             Cls
  241.             DispFile PPEPath() + "CHAT.ANS", 0
  242.             For INTEGER004 = 1 To 40
  243.                 TSTRING011(INTEGER004) = ""
  244.                 TSTRING012(INTEGER004) = ""
  245.                 TINTEGER026(INTEGER004) = 0
  246.                 TINTEGER023(INTEGER004) = 0
  247.                 INTEGER010 = 1
  248.                 INTEGER009 = 1
  249.                 INTEGER024 = INTEGER015
  250.                 INTEGER025 = INTEGER017
  251.                 INTEGER021 = INTEGER011
  252.                 INTEGER022 = INTEGER013
  253.             Next
  254.         Case STRING007
  255.             If (INTEGER025 == INTEGER018) Then
  256.                 TSTRING011(INTEGER010) = ""
  257.                 Gosub LABEL012
  258.             Else
  259.                 Inc INTEGER025
  260.                 Inc INTEGER010
  261.                 TSTRING011(INTEGER010) = ""
  262.                 INTEGER024 = INTEGER015
  263.                 AnsiPos INTEGER024, INTEGER025
  264.             Endif
  265.             If (((((((((STRING004 == "LEFT") || (STRING004 == "RIGHT")) || (STRING004 == "UP")) || (STRING004 == "DOWN")) || (STRING004 == "DEL")) || (STRING004 == "HOME")) || (STRING004 == "PGUP")) || (STRING004 == "END")) || (STRING004 == "PGDN")) Goto LABEL006
  266.         Case INTEGER016
  267.             TSTRING011(INTEGER010) = TSTRING011(INTEGER010) + STRING004
  268.             Gosub LABEL010
  269.         Case Else
  270.             TSTRING011(INTEGER010) = TSTRING011(INTEGER010) + STRING004
  271.             Inc TINTEGER026(INTEGER010)
  272.             AnsiPos INTEGER024, INTEGER025
  273.             Print STRING013
  274.             Print STRING004
  275.             Inc INTEGER024
  276.     End Select
  277.     :LABEL006
  278.     If (STRING005 == "") Then
  279.         Goto LABEL007
  280.     Endif
  281.     Select Case (STRING005)
  282.         Case STRING006
  283.             Goto LABEL008
  284.         Case STRING010
  285.             If (INTEGER021 > INTEGER011) Then
  286.                 TSTRING012(INTEGER009) = Left(TSTRING012(INTEGER009), Len(TSTRING012(INTEGER009)) - 1)
  287.                 Dec TINTEGER023(INTEGER009)
  288.                 AnsiPos INTEGER021, INTEGER022
  289.                 Print STRING005 + " " + STRING005
  290.                 Dec INTEGER021
  291.             Else
  292.                 Dec INTEGER009
  293.                 Dec INTEGER022
  294.                 INTEGER021 = INTEGER011 + Len(TSTRING012(INTEGER009))
  295.                 AnsiPos INTEGER021, INTEGER022
  296.             Endif
  297.         Case STRING007
  298.             If (INTEGER022 == INTEGER014) Then
  299.                 TSTRING012(INTEGER009 + 1) = ""
  300.                 Gosub LABEL013
  301.             Else
  302.                 Inc INTEGER022
  303.                 Inc INTEGER009
  304.                 INTEGER021 = INTEGER011
  305.                 TSTRING012(INTEGER009) = ""
  306.                 AnsiPos INTEGER021, INTEGER022
  307.             Endif
  308.         Case Chr(9)
  309.             AnsiPos 15, 6
  310.             Print "@X01┌─────────────────────────────────────────────┐"
  311.             AnsiPos 15, 7
  312.             Print "│     [@X0FESC@X01]  @X09E@X01XiT @X09C@X01iA @X09S@X01plit @X09S@X01creen @X09C@X01hat       │"
  313.             AnsiPos 15, 8
  314.             Print "│  [@X0FCTRL-V@X01]  @X09V@X01iEW @X09A T@X01ext @X09F@X01ile                 │"
  315.             AnsiPos 15, 9
  316.             Print "│  [@X0FCTRL-R@X01]  @X09R@X01efresh @X09S@X01creen                   │"
  317.             AnsiPos 15, 10
  318.             Print "│     [@X0FTAB@X01]  @X09T@X01his @X09H@X01elp @X09W@X01indow                 │"
  319.             AnsiPos 15, 11
  320.             Print "└─────────────────────────────────────────────┘@X07"
  321.             STRING015 = KInkey()
  322.             While (STRING015 == "") Do
  323.                 STRING015 = KInkey()
  324.             EndWhile
  325.             Gosub LABEL009
  326.         Case Chr(18)
  327.             Cls
  328.             DispFile PPEPath() + "CHAT.ANS", 0
  329.             For INTEGER004 = 1 To 40
  330.                 TSTRING011(INTEGER004) = ""
  331.                 TSTRING012(INTEGER004) = ""
  332.                 TINTEGER026(INTEGER004) = 0
  333.                 TINTEGER023(INTEGER004) = 0
  334.                 INTEGER010 = 1
  335.                 INTEGER009 = 1
  336.                 INTEGER024 = INTEGER015
  337.                 INTEGER025 = INTEGER017
  338.                 INTEGER021 = INTEGER011
  339.                 INTEGER022 = INTEGER013
  340.             Next
  341.         Case Chr(22)
  342.             STRING015 = ""
  343.             AnsiPos 10, 8
  344.             Print "@X01┌───────────────────────────────────────────────────────────┐@X07"
  345.             AnsiPos 10, 9
  346.             Print "@X01│ @X08φ @X0FF@X09i@X01le@X0FN@X09a@X01me to @X0FV@X09i@X01ew@X08: @X07····································· @X01│@X08 "
  347.             AnsiPos 10, 10
  348.             Print "@X01└───────────────────────────────────────────────────────────┘@X08 "
  349.             AnsiPos 32, 9
  350.             InputStr "_", STRING015, "@X0F", 37, " ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz`1234567890~!@#$%^&()_+|-=\[]';,./{}:<>?", 0
  351.             If (STRING015 <> "") Then
  352.                 Cls
  353.                 DispFile STRING015, 0
  354.                 More
  355.                 Cls
  356.             Endif
  357.             Gosub LABEL009
  358.             If (((((((((STRING005 == "LEFT") || (STRING005 == "RIGHT")) || (STRING005 == "UP")) || (STRING005 == "DOWN")) || (STRING005 == "DEL")) || (STRING005 == "HOME")) || (STRING005 == "PGUP")) || (STRING005 == "END")) || (STRING005 == "PGDN")) Goto LABEL007
  359.         Case INTEGER012
  360.             TSTRING012(INTEGER009) = TSTRING012(INTEGER009) + STRING005
  361.             Gosub LABEL011
  362.         Case Else
  363.             TSTRING012(INTEGER009) = TSTRING012(INTEGER009) + STRING005
  364.             Inc TINTEGER023(INTEGER009)
  365.             AnsiPos INTEGER021, INTEGER022
  366.             Print STRING014
  367.             Print STRING005
  368.             Inc INTEGER021
  369.     End Select
  370.     :LABEL007
  371.     Goto LABEL005
  372.     :LABEL008
  373.     Cls
  374.     PrintLn "@X08               [@X07C@X0Fi@X07A @X0FS@X07plit @X0FS@X07creen @X0FC@X07hat @X08v@X07O@X08.@X0758 @X08by @X0FD@X07ark @X0FJ@X07ester@X08]@X07"
  375.     End
  376.     :LABEL009
  377.     DispFile PPEPath() + "CHAT.ANS", 0
  378.     Print STRING013
  379.     For INTEGER004 = 1 To INTEGER028 + 1
  380.         AnsiPos INTEGER015, INTEGER017 + INTEGER004 - 1
  381.         Print TSTRING011(INTEGER004) + Space(INTEGER027 - Len(TSTRING011(INTEGER004)))
  382.     Next
  383.     Print STRING014
  384.     For INTEGER004 = 1 To INTEGER030 + 1
  385.         AnsiPos INTEGER011, INTEGER013 + INTEGER004 - 1
  386.         Print TSTRING012(INTEGER004) + Space(INTEGER029 - Len(TSTRING012(INTEGER004)))
  387.     Next
  388.     Return
  389.     :LABEL010
  390.     TSTRING011(INTEGER010 + 1) = ""
  391.     STRING009 = Right(TSTRING011(INTEGER010), 1)
  392.     While (STRING009 <> " ") Do
  393.         TSTRING011(INTEGER010 + 1) = STRING009 + TSTRING011(INTEGER010 + 1)
  394.         TSTRING011(INTEGER010) = Left(TSTRING011(INTEGER010), Len(TSTRING011(INTEGER010)) - 1)
  395.         STRING009 = Right(TSTRING011(INTEGER010), 1)
  396.     EndWhile
  397.     TINTEGER026(INTEGER010 + 1) = Len(TSTRING011(INTEGER010 + 1))
  398.     If (INTEGER025 == INTEGER018) Then
  399.         Gosub LABEL012
  400.         Print STRING013
  401.     Else
  402.         AnsiPos INTEGER015 + Len(TSTRING011(INTEGER010)), INTEGER025
  403.         Print Space(INTEGER027 - Len(TSTRING011(INTEGER010)))
  404.         Inc INTEGER010
  405.         Inc INTEGER025
  406.         INTEGER024 = INTEGER015 + Len(TSTRING011(INTEGER010))
  407.         AnsiPos INTEGER015, INTEGER025
  408.         Print TSTRING011(INTEGER010)
  409.     Endif
  410.     Return
  411.     :LABEL011
  412.     TSTRING012(INTEGER009 + 1) = ""
  413.     STRING009 = Right(TSTRING012(INTEGER009), 1)
  414.     While (STRING009 <> " ") Do
  415.         TSTRING012(INTEGER009 + 1) = STRING009 + TSTRING012(INTEGER009 + 1)
  416.         TSTRING012(INTEGER009) = Left(TSTRING012(INTEGER009), Len(TSTRING012(INTEGER009)) - 1)
  417.         STRING009 = Right(TSTRING012(INTEGER009), 1)
  418.     EndWhile
  419.     TINTEGER023(INTEGER009 + 1) = Len(TSTRING012(INTEGER009 + 1))
  420.     If (INTEGER022 == INTEGER014) Then
  421.         Gosub LABEL013
  422.         Print STRING014
  423.     Else
  424.         AnsiPos INTEGER011 + Len(TSTRING012(INTEGER009)), INTEGER022
  425.         Print Space(INTEGER029 - Len(TSTRING012(INTEGER009)))
  426.         Inc INTEGER009
  427.         Inc INTEGER022
  428.         INTEGER021 = INTEGER011 + Len(TSTRING012(INTEGER009))
  429.         AnsiPos INTEGER011, INTEGER022
  430.         Print TSTRING012(INTEGER009)
  431.     Endif
  432.     Return
  433.     :LABEL012
  434.     Print STRING013
  435.     For INTEGER004 = 1 To INTEGER028 + 1
  436.         TSTRING011(INTEGER004) = TSTRING011(INTEGER004 + 5)
  437.         TINTEGER026(INTEGER004) = TINTEGER026(INTEGER004 + 5)
  438.         AnsiPos INTEGER015, INTEGER017 + INTEGER004 - 1
  439.         Print TSTRING011(INTEGER004) + Space(INTEGER027 - Len(TSTRING011(INTEGER004)))
  440.     Next
  441.     INTEGER010 = INTEGER010 - 4
  442.     INTEGER025 = INTEGER025 - 4
  443.     INTEGER024 = INTEGER015 + Len(TSTRING011(INTEGER010))
  444.     TINTEGER026(INTEGER010) = Len(TSTRING011(INTEGER010))
  445.     AnsiPos INTEGER024, INTEGER025
  446.     Return
  447.     :LABEL013
  448.     Print STRING014
  449.     For INTEGER004 = 1 To INTEGER030 + 1
  450.         TSTRING012(INTEGER004) = TSTRING012(INTEGER004 + 5)
  451.         TINTEGER023(INTEGER004) = TINTEGER023(INTEGER004 + 5)
  452.         AnsiPos INTEGER011, INTEGER013 + INTEGER004 - 1
  453.         Print TSTRING012(INTEGER004) + Space(INTEGER029 - Len(TSTRING012(INTEGER004)))
  454.     Next
  455.     INTEGER009 = INTEGER009 - 4
  456.     INTEGER022 = INTEGER022 - 4
  457.     INTEGER021 = INTEGER011 + Len(TSTRING012(INTEGER009))
  458.     TINTEGER023(INTEGER009) = Len(TSTRING012(INTEGER009))
  459.     AnsiPos INTEGER021, INTEGER022
  460.     Return
  461.     :LABEL014
  462.     AnsiPos 1, 1
  463.     Color 1
  464.     SPrintLn "┌─────────────────────────────────────────────────────────────────────────────┐"
  465.     SPrint "│"
  466.     Color 9
  467.     SPrint "              SYSOP!   SYSOP!  YOU ARE BEING PAGED!   REASON:                "
  468.     Color 1
  469.     SPrintLn "│"
  470.     Color 1
  471.     SPrint "│"
  472.     Color 15
  473.     INTEGER004 = (78 - Len(STRING001)) / 2
  474.     STRING001 = Space(INTEGER004) + STRING001
  475.     SPrint STRING001
  476.     SPrint Space(78 - Len(STRING001))
  477.     AnsiPos 79, 3
  478.     Color 1
  479.     SPrintLn "│"
  480.     Color 1
  481.     SPrint "│        ["
  482.     Color 15
  483.     SPrint "SPACE"
  484.     Color 1
  485.     SPrint "]="
  486.     Color 9
  487.     SPrint "C"
  488.     Color 1
  489.     SPrint "HAT "
  490.     Color 9
  491.     SPrint "W"
  492.     Color 1
  493.     SPrint "ITH "
  494.     Color 9
  495.     SPrint "U"
  496.     Color 1
  497.     SPrint "SER    ["
  498.     Color 15
  499.     SPrint "Q"
  500.     Color 1
  501.     SPrint "]="
  502.     Color 9
  503.     SPrint "Q"
  504.     Color 1
  505.     SPrint "UIET "
  506.     Color 9
  507.     SPrint "T"
  508.     Color 1
  509.     SPrint "OGGLE    ["
  510.     Color 15
  511.     SPrint "ESC"
  512.     Color 1
  513.     SPrint "]="
  514.     Color 9
  515.     SPrint "A"
  516.     Color 1
  517.     SPrint "BORT "
  518.     Color 9
  519.     SPrint "P"
  520.     Color 1
  521.     SPrintLn "AGE       │"
  522.     SPrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  523.     Return
  524.  
  525. ;------------------------------------------------------------------------------
  526. ;
  527. ; Usage report (before postprocessing)
  528. ;
  529. ; ■ Statements used :
  530. ;
  531. ;    3       End
  532. ;    6       Cls
  533. ;    1       ClrEol
  534. ;    1       More
  535. ;    27      Color 
  536. ;    85      Goto 
  537. ;    136     Let 
  538. ;    35      Print 
  539. ;    2       PrintLn 
  540. ;    48      If 
  541. ;    6       DispFile 
  542. ;    3       FOpen 
  543. ;    3       FClose 
  544. ;    19      FGet 
  545. ;    1       FPut 
  546. ;    1       Delete 
  547. ;    2       InputStr 
  548. ;    9       Gosub 
  549. ;    6       Return
  550. ;    14      Inc 
  551. ;    9       Dec 
  552. ;    4       Newline
  553. ;    1       Tokenize 
  554. ;    1       GetToken 
  555. ;    1       RdUNet 
  556. ;    1       WrUNet 
  557. ;    35      AnsiPos 
  558. ;    3       Sound 
  559. ;    25      SPrint 
  560. ;    5       SPrintLn 
  561. ;
  562. ;
  563. ; ■ Functions used :
  564. ;
  565. ;    1       -
  566. ;    1       *
  567. ;    2       /
  568. ;    72      +
  569. ;    25      -
  570. ;    46      ==
  571. ;    3       <>
  572. ;    8       <
  573. ;    7       <=
  574. ;    5       >
  575. ;    14      >=
  576. ;    44      !
  577. ;    15      &&
  578. ;    24      ||
  579. ;    27      Len(
  580. ;    1       Upper()
  581. ;    4       Left()
  582. ;    4       Right()
  583. ;    8       Space()
  584. ;    7       Chr()
  585. ;    1       U_Name()
  586. ;    2       StripAtx()
  587. ;    10      PPEPath()
  588. ;    2       PcbNode()
  589. ;    1       UN_Name()
  590. ;    1       UN_City()
  591. ;    1       Exist()
  592. ;    1       TokenStr()
  593. ;    4       KInkey()
  594. ;    2       MInkey()
  595. ;
  596. ;------------------------------------------------------------------------------
  597. ;
  598. ; Analysis flags : No flag
  599. ;
  600. ;------------------------------------------------------------------------------
  601. ;
  602. ; Postprocessing report
  603. ;
  604. ;    7       For/Next
  605. ;    4       While/EndWhile
  606. ;    15      If/Then or If/Then/Else
  607. ;    3       Select Case
  608. ;
  609. ;------------------------------------------------------------------------------
  610. ;                 AEGiS Corp - Break the routines, code against the machines!
  611. ;------------------------------------------------------------------------------
  612.